home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / FROMUTS / UNIXLIB37B / src / c / calloc < prev    next >
Text File  |  1990-09-26  |  566b  |  35 lines
  1. #ifdef __STDC__
  2. static char sccs_id[] = "@(#) calloc.c 1.1 "__DATE__" HJR";
  3. #else
  4. static char sccs_id[] = "@(#) calloc.c 1.1 15/9/90 HJR";
  5. #endif
  6.  
  7. /* calloc.c (c) Copyright 1990 H.Rogers */
  8.  
  9. #ifdef __STDC__
  10. #include <stdlib.h>
  11. #else
  12. #include "sys/types.h"
  13. void *calloc();
  14. #endif
  15. #include <string.h>
  16.  
  17. #ifdef __STDC__
  18. void *calloc(register size_t nmemb,register size_t size)
  19. #else
  20. void *calloc(nmemb,size)
  21. register size_t nmemb;
  22. register size_t size;
  23. #endif
  24. {
  25. register void *r;
  26. register size_t z;
  27.  
  28. z = nmemb * size;
  29.  
  30. r = malloc(z);
  31. if (r) memset(r,0,z);
  32.  
  33. return(r);
  34. }
  35.